home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 10 / FM Towns Free Software Collection 10.iso / fb386 / demo / kushida / 74.bas < prev    next >
BASIC Source File  |  1995-02-04  |  8KB  |  143 lines
  1. 10 PLAY OFF
  2. 20 LOAD@ "ED02.FMB" : LOAD@ "ED05.PMB"
  3. 30 CLS 1 : COLOR 5
  4. 40 PRINT "LET THEM CALL IT JAZZ" : PRINT "written  TAKAO KUSHIDA"
  5. 50 S$="%CQ8T100" : PLAY S$,S$,S$,S$,S$,S$,S$,S$,S$,S$,S$,S$,S$,S$
  6. 60 '
  7. 70 '
  8. 80 '
  9. 90 AL$="@115V11O3L24Q5" : AR$=AL$+"V3R12"
  10. 100 A0L$=AL$+"R1R2  RRRDRRDRRD8 Q8"
  11. 110 A0R$=AR$+"R1R2  RRRDRRDRRD  Q8"
  12. 120 A1L$=AL$+"B12>C<B12>G RRRRRR RRRDRR DRDRRD DRRRRR R4 RRRRRRFRGGRR Q8"
  13. 130 A1R$=AR$+"B12>C<B12>G RRRRRR RRRDRR DRDRRD DRRRRR R4 RRRRRRFRGG   Q8"
  14. 140 A1E$=AL$+"B12>C<B12>G RRRRRR RRRRRD FRGFRB R2   <B>RCDRRGRFDC<B   Q8"
  15. 150 A1F$=AR$+"B12>C<B12>G RRRRRR RRRRRD FRGFRB R2   <B>RCDRRGRFD      Q8"
  16. 160 A1G$=AL$+"B8>C12GRRFDRR< B8>C12DRRGFRG <F8G12F8GF12G FRGFRB>C8D8 Q8"
  17. 170 A1H$=AR$+"B8>C12GRRFDRR< B8>C12DRRGFRG <F8G12F8GF12G FRGFRB>C8   Q8"
  18. 200 A2L$=AL$+"@33 ARRARRRRRRRR GRD#ERGRRDRRE ARRARRRRRRRRGRAARARRGARR"
  19. 210 A2R$=AR$+"@32 ARRARRRRRRRR GRD#ERGRRDRRE ARRARRRRRRRRGRAARARRGA  "
  20. 220 A2E$=AL$+"@33 ARRARRRRRRRR GRD#ERGRRDRRE ARRARRRRRRRR>ERRD#RRDRR<ERR"
  21. 230 A2F$=AR$+"@32 ARRARRRRRRRR GRD#ERGRRDRRE ARRARRRRRRRR>ERRD#RRDRR<E  "
  22. 240 A2G$=AL$+"@33 ARRARRRRRRRR RRRRRRERRGRR  ARRARRRRRRRRRRRRRRRRRRRR"
  23. 250 A2H$=AR$+"@32 ARRARRRRRRRR RRRRRRERRGRR  ARRARRRRRRRRRRRRRRRRRR  "
  24. 260 A2I$=AL$+"@33 ERRERR>A<RD8EGRAG#RG8G#RRG ARRRRR G8&G12 A&A4 BRR>C8"
  25. 270 A2J$=AR$+"@32 ARRE8 >A<RD8EGRAG#RG8G#RRG ARRRRR G8&G12 A&A4 BRR>C "
  26. 280 A3L$=AL$+"@33Q8  B8&B12A6E8&E4 <B8>C8 D4&D8G4&G8E8F8"
  27. 290 A3R$=AR$+"@39Q8  B8&B12A6E8&E4 <B8>C8 D4&D8G4&G8E8F"
  28. 300 A3E$=AL$+"@33Q8  G4&G8C4&C8D8C8 <B8>C8D8<G8& G8G8A8B8"
  29. 310 A3F$=AR$+"@39Q8  G4&G8C4&C8D8C8 <B8>C8D8<G8& G8G8A8B "
  30. 320 A3G$=AL$+"@33Q8  C2&C4A4 G#4&G#8G4&G8F4  "
  31. 330 A3H$=AR$+"@39Q8  C2&C4A4 G#4&G#8G4&G8F8&F"
  32. 340 A3I$=AL$+"@33Q8  E4&E8F4&F8G4 F4&F8E4&E8<B4  "
  33. 350 A3J$=AR$+"@39Q8  E4&E8F4&F8G4 F4&F8E4&E8<B8&B"
  34. 360 AL$="@71V10O3L24Q8" : AR$=AL$+"V3R12"
  35. 370 A4L$=AL$+"B12>C<B12>G RRRRRR RRRDRR DRDRRD DRRRRR R4 RRRRRRFRGGRR Q8"
  36. 380 A4R$=AR$+"B12>C<B12>G RRRRRR RRRDRR DRDRRD DRRRRR R4 RRRRRRFRGG   Q8"
  37. 390 A4E$=AL$+"B12>C<B12>G RRRRRR RRRRRD FRGFRB R2   <B>RCDRRGRFDC<B   Q8"
  38. 400 A4F$=AR$+"B12>C<B12>G RRRRRR RRRRRD FRGFRB R2   <B>RCDRRGRFD      Q8"
  39. 410 A4G$=AL$+"B8>C12GRRFDRR< B8>C12DRRGFRG <F8G12F8GF12G FRGFRB>C8D8 Q8"
  40. 420 A4H$=AR$+"B8>C12GRRFDRR< B8>C12DRRGFRG <F8G12F8GF12G FRGFRB>C8   Q8"
  41. 430 A4I$=AL$+"Q8V7 B1&B1"
  42. 440 A4J$=AR$+"Q8V2 G1&G"
  43. 450 '
  44. 460 '
  45. 470 C1L$="@24V2O3L12%L1 >C1&C1"
  46. 480 C1R$="@24V2O3L12%R1  A1&A1"
  47. 490 C1C$="@24V2O3L12%C   F1&F1"
  48. 500 C1E$="@24V2O3L12%L1 B1&B2&B4>D4"
  49. 510 C1F$="@24V2O3L12%R1 G1&G2&G4 B4"
  50. 520 C1G$="@24V2O3L12%C  E1&E2&E4 G4"
  51. 530 C1H$="@24V0O3L12%L1 >C1&C1&C4 L24@77<C"
  52. 540 C1I$="@24V0O3L12%R1  A1&A1&A4 L24@77<A"
  53. 550 C1J$="@24V0O3L12%C   F1&F1&F4 L24@77<F"
  54. 560 C2L$="@24V4O3L24%R1 >(FRRFRR G8RRG RR CRRRCRRCR E<)"
  55. 570 C2R$="@24V5O3L24%L1 >(DRRDRR E8RRE RR<ARRRARRAR>C )"
  56. 580 C2C$="@24V4O3L24%C   (ARRARR B8RRB RR ERRRERRER G )"
  57. 590 C2E$="@24V4O3L24%R1  (CRR<B>RC RRC<B>R<B>) C2 (CRR)4"
  58. 600 C2F$="@24V4O3L24%L1  (ERR D RE RRE C R D ) E2 (ERR)4"
  59. 610 C2G$="@24V5O3L24%C   (ARR G RA RRA E R G ) A2 (ARR)4"
  60. 620 C3L$="@24V2O3L24%L1 >C1<B1" : C3E$="@24V2O3L24%L1 >C1 E4&E8 D4&D8<B4"
  61. 630 C3R$="@24V2O3L24%R1  A1 G1" : C3F$="@24V2O3L24%R1  A1>C4&C8<B4&B8 G4"
  62. 640 C3C$="@24V2O3L24%C   F1 E1" : C3G$="@24V2O3L24%C   F1 A4&A8 G4&G8 E4"
  63. 650 C3H$="@24V2O3L24%L1 >C1 D2&D4E4"
  64. 660 C3I$="@24V2O3L24%R1  A1 B2&B4B4"
  65. 670 C3J$="@24V2O3L24%C   F1 G2&G4G#4"
  66. 680 E1L$="@72V8O3L24     RRRBRR R4 >C8D8R8E4<A8R4G8G#8A8B8"
  67. 690 E1R$="@72V2O3L24R5   RRRBRR R4 >C8D8R8E4<A8R4G8G#8A90 "
  68. 700 E1E$="@72V8O3L24    >D1 CR<BRAR G#GF#G8A8 >G4A8"
  69. 710 E1F$="@72V7O3L24A5V2>D1 CR<BRAR G#GF#G8A8 >G8  "
  70. 720 E1G$="@72V8O3L24    >B8  DRR RRRC4 D4ERRRRRD4&D8 <G4A4 "
  71. 730 E1H$="@72V7O3L24>E5 &E8V2DRR RRRC4 D4ERRRRRD4&D8 <G4A90"
  72. 740 E1I$="@72V8O3L24     B4&B8>C2<DRR>E4&E8D4&D8<A4"
  73. 750 E1J$="@72V2O3L24R5   B4&B8>C2<DRR>E4&E8D4&D8<A90"
  74. 760 E2L$="@72V8O4L24   R8GRRG4FRRRRRFRRE4FRRG4 [[<B4>D4"
  75. 770 E2R$="@72V7O4L24   R8ERRE4DRRRRRDRRC4DRRE4 [[<G4 B4"
  76. 780 E2E$="@72V8O4L24   R8GRRG4FRRRRRERR C2&C8 [[<B4>D4"
  77. 790 E2F$="@72V7O4L24   R8ERRE4DRRRRRCRR<A2&A8 [[ G4 B4"
  78. 800 E2G$="@72V10O4L24   C1<B4&B8>C4&C8D4"
  79. 810 E2H$="@72V9 O4L24  <A1 G4&G8 A4&A8B4"
  80. 820 E3$ ="@72V2O3L24R5  RRRBRR R4 >C8D8R8E4<A1"
  81. 830 B1$= "@28V10O2L24Q6 G8F6&F12 G12R6R8DRFG8  R2 R4 D12DD8 Q8"
  82. 840 B2$= "@28V11O2L24Q6 D4D4R4 CRCG8  ARRG8A4     &A4>CRRC8"
  83. 850 B2E$="@28V11O2L24Q6 D4D4R4 CRCG8  ARRA8GRA8&A  G#8G8E8D#8"
  84. 860 B2F$="@28V11O2L24Q6 D4D4R4 CRCG8  A2 DRRD#8ERGA8"
  85. 870 B3$ ="@28V11O2L24Q6 FRRF8FRFRRR R4 RRRRRB ERRE8ERERRR C8D8D#8E8"
  86. 880 B3E$="@28V11O2L24Q6 FRRF8FRFRRR R4 RRRGRB A4ARRG4GRRE4"
  87. 890 B3F$="@28V11O2L24Q6 FRRF8FRFRRR R4 RRRRRB GRRG8GRGRRG@71Q8>B8G#8E8D8"
  88. 900 '
  89. 910 P1$= "@8V11O1L24  GRRRRRGRRRRRGRRRRRGRRRRR GRRRRRGRRRRRGRRRRRGRRGRR"
  90. 920 Q1$= "@8V11O1L24  GRRRRRGRRRRRGRRRRRGRRGRG GRRRRRGRRRRGGRRGRRGRRGRR"
  91. 930 R1$= "@1V6 O0L24  GRRGRRRRGRRGRRGRRRRRRGRG GRRRRGRRGRRGRRGRRRRRRGRR"
  92. 940 S1$= "@8V11O1L24  GRRRRRRRRRRRRRRRRRRRRRRR RRRRRRRRRRRRRRRRRRCRRCRC"
  93. 950 P2$= "@8V11O3L12  RRRGRR RRRGRR    RRRGRR RGR L24 GRR V3GRG"
  94. 960 S2$= "@8V11O3L12  RRRGRR RRRGRR    RRRRRR RRR     RRR      "
  95. 970 P3$= "@2V4 O7L24  (FRRFRF)3FRR FRF48F48 (FRRFRF)3 FRR@6<<[[C8]]>>"
  96. 980 S3$= "@2V4 O7L24  (FRRFRF)3FRR FRF48F48 F1"
  97. 990 PP1$="@3V12O2L24  (CRRCRR RRCRRC CRRCRC RRC>%R5G%L5C<C %C)"
  98. 1000 PP2$="@10V4O4L24  (RRR@10O4ARARRRARR @4O3CRR%C@10O4ARRAR<A>ARR)"
  99. 1010 BP1$="@2V1 O7L24  (GRRGRR])3GRRGRG] (GRRGRG)  @8V9O2 GRRRRG GRRGRR"
  100. 1020 BP2$="@7V12O8L24  R1R2   %R9CRR %L9RRR %R9RRR%CRRR "
  101. 1030 BP3$="@4V12O5L24  R1R2   %R9C8 %L9CCC %R9CCC %L5C%R5C%CC"
  102. 1040 '
  103. 1050 'PLAY B1$,A4L$,A4R$,,,,,R1$,P2$,P3$,,PP2$ :  END
  104. 1060 'PLAY A2L$,A2R$,,,,,,BP3$ : END
  105. 1070 'PLAY B1$,,,,,,P1$ :  END
  106. 1080 'GOTO 1200
  107. 1090 '
  108. 1100 PLAY ,,,,,,,BP1$
  109. 1110 PLAY B1$,C1L$,C1R$,C1C$,    ,    ,P1$,P2$,P3$,PP1$
  110. 1120 PLAY B1$,C1E$,C1F$,C1G$,    ,    ,Q1$,P2$,P3$,PP1$
  111. 1130 PLAY B1$,C1L$,C1R$,C1C$,    ,    ,P1$,P2$,P3$,PP1$
  112. 1140 PLAY B1$,C1E$,C1F$,C1G$,A0L$,A0R$,Q1$,S2$,P3$,PP1$,BP2$
  113. 1150 PLAY B1$,C1L$,C1R$,C1C$,A1L$,A1R$,P1$,P2$,P3$,PP1$
  114. 1160 PLAY B1$,C1E$,C1F$,C1G$,A1E$,A1F$,Q1$,P2$,P3$,PP1$
  115. 1170 PLAY B1$,C1L$,C1R$,C1C$,A1L$,A1R$,P1$,P2$,P3$,PP1$
  116. 1180 PLAY B1$,C1E$,C1F$,C1G$,A1G$,A1H$,Q1$,S2$,S3$,PP1$,BP3$
  117. 1190 PLAY     ,C2L$,C2R$,C2C$,    ,    ,R1$,P2$
  118. 1200 PLAY     ,C2L$,C2R$,C2C$,    ,    ,R1$,P2$,PP2$
  119. 1210 PLAY B2$ ,C2L$,C2R$,C2C$,A2G$,A2H$,R1$,P2$,P3$,PP2$
  120. 1220 PLAY B2E$,C2L$,C2R$,C2C$,A2G$,A2H$,R1$,S2$,S3$,PP2$
  121. 1230 PLAY B2$ ,C2L$,C2R$,C2C$,A2L$,A2R$,P1$,P2$,P3$,PP2$
  122. 1240 PLAY B2E$,C2L$,C2R$,C2C$,A2E$,A2F$,Q1$,P2$,P3$,PP2$
  123. 1250 PLAY B2$ ,C2L$,C2R$,C2C$,A2L$,A2R$,P1$,P2$,P3$,PP2$
  124. 1260 PLAY B2E$,C2E$,C2F$,C2G$,A2I$,A2G$,S1$,   ,   ,PP2$
  125. 1270 PLAY B3$ ,C3L$,C3R$,C3C$,A3L$,A3R$,R1$,P2$,P3$,PP2$
  126. 1280 PLAY B3$ ,C3L$,C3R$,C3C$,A3E$,A3F$,R1$,P2$,P3$,PP2$
  127. 1290 PLAY B3E$,C3E$,C3F$,C3G$,A3G$,A3H$,R1$,P2$,P3$,PP2$
  128. 1300 PLAY B3F$,C3H$,C3I$,C3J$,A3I$,A3J$,S1$,S2$,S3$,PP2$,BP2$
  129. 1310 PLAY B1$ ,C1L$,C1R$,C1C$,E1L$,E1R$,   ,  ,P3$
  130. 1320 PLAY B1$ ,C1E$,C1F$,C1G$,E1E$,E1F$,   ,  ,P3$
  131. 1330 PLAY B1$ ,C1L$,C1R$,C1C$,E1G$,E1H$,   ,  ,P3$
  132. 1340 PLAY B1$ ,C1E$,C1F$,C1G$,E1I$,E1J$,   ,  ,P3$,BP2$
  133. 1350 PLAY B1$ ,C1L$,C1R$,C1C$,E2L$,E2R$,S1$,S2$,S3$,PP1$
  134. 1360 PLAY B1$ ,C1E$,C1F$,C1G$,E2E$,E2F$,S1$,S2$,S3$,PP1$
  135. 1370 PLAY B1$ ,C1L$,C1R$,C1C$,E2L$,E2R$,P1$,P2$,P3$,PP1$
  136. 1380 PLAY B1$ ,C1E$,C1F$,C1G$,E2G$,E2H$,Q1$,P2$,P3$,PP1$,BP1$
  137. 1390 PLAY B1$ ,C1L$,C1R$,C1C$,A4L$,A4R$,P1$,P2$,P3$,PP1$
  138. 1400 PLAY B1$ ,C1E$,C1F$,C1G$,A4E$,A4F$,Q1$,P2$,P3$,PP1$
  139. 1410 PLAY B1$ ,C1L$,C1R$,C1C$,A4L$,A4R$,P1$,P2$,P3$,PP1$
  140. 1420 PLAY B1$ ,C1E$,C1F$,C1G$,A4G$,A4H$,Q1$,S2$,S3$,PP1$
  141. 1430 '
  142. 1440 PLAY C1H$,C1I$,C1J$,A4I$,A4J$,E3$
  143.